home *** CD-ROM | disk | FTP | other *** search
- %case sourcefile%
- %genfile dialog U+dlogname+.p%
- %If lang = MPW%
- %genfile dialog.inc U+dlogname+.inc.p%
- %end if%
- %case uses%
- %if lang = Think%
- U%dlogname%, {}
- %else%
- U%dlogname%,
- %endif%
- %case dependency%
- "{SrcApp}U%dlogname%.p" ∂
- %case makeDepend%
- "{ObjApp}U%dlogname%.p.o"% %ƒ "{SrcApp}U%dlogname%.p" ∂
- "{SrcApp}U%dlogname%.inc.p" ∂
- "{SrcApp}ResourceDefs.p"
-
- %case buildOrder%
- { U%dlogname%.p% %}
- %case instanceModeless%
- %if modeless%
- f%dlogname%: TWindow;
- %endif%
- %case DoToField%
- %if modeless%
- DoToField ('f%dlogname%', @f%dlogname%, bObject);
- %endif%
- %case createModeless%
- %if modeless%
- f%dlogname% := New%dlogname%;
- %endif%
- %case linkFile%
- "{ObjApp}U%dlogname%.p.o" ∂
-